home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / SFCONSET.SDA / BOOT SFCS (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.3 KB  |  46 lines
  1. 0 X=X+1
  2. 5 IFPEEK(653)=1THEN205
  3. 6 IFX>1THEN61
  4. 10 POKE53280,0:POKE53281,0:PRINT"[147][155]PRESS  SHIFT[160]LOCK  TO LOAD SETUP."
  5. 15 OPEN15,8,15
  6. 20 OPEN5,8,5,"SFC CONFIG,U,R"
  7. 25 INPUT#15,E:IFE=62THEN205
  8. 30 INPUT#5,DC$,D2$,DN$
  9. 35 PRINT"8>[158]"DN$
  10. 40 IFDC$="?"THEN45
  11. 41 PRINT#15,DC$:IFD2$="?"THEN45
  12. 42 PRINT#15,D2$
  13. 45 INPUT#15,E:IFE=31THEN200
  14. 50 CLOSE5:CLOSE15
  15. 55 F=FRE(0)-(FRE(0)<0)*65536:IFF<37400THEN220
  16. 58 PRINT"8>[158]SF CON SET"
  17. 59 PRINT""F"BYTES FREE"
  18. 60 PRINT"WAIT..."
  19. 61 IFX=1THENLOAD"SFC ML",8,1
  20. 62 IFX=2THENLOAD"SF INS",8,1
  21. 65 POKE53280,2:POKE53281,2
  22. 70 PRINT"[147]LOAD"CHR$(34)"SF CON SET"CHR$(34)",8
  23. 75 [153]"RUN"
  24. 80 [153]""[166]4)"SYSSTAR FRONTIER CONSTRUCTION SET"
  25. 85 [153][166]12)"* VERSION 1.0 *"
  26. 90 [153]"CREATED BY: SETH HOPKINSON   4-JUL-1990"
  27. 91 [153]""[166]9)"COMPLETED: 22-SEP-1990"
  28. 95 [153][166]12)"OPENANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND"
  29. 100 [153][166]12)" NOW LOADING... "
  30. 105 [153][166]12)"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(";
  31. 110 [151]198,3:[151]631,19:[151]632,13:[151]633,13:[162]
  32. 200 [153]"DEFERROR...."
  33. 205 [153]"LOADING LISTSETUP..."
  34. 210 [151]53280,0:[151]53281,0:[153]"STOPLOAD"[199](34)"SFC SETUP"[199](34)",8:
  35. 215 PRINT"RUN[144]":GOTO110
  36. 220 POKE53280,6:POKE53281,6:PRINT"[147][159]"F" BYTES OF MEMORY LEFT UNUSED."
  37. 225 PRINT"[158]THIS IS NOT ENOUGH MEMORY TO RUN THE"
  38. 230 PRINT"STAR FRONTIER CONSTRUCTION SET"
  39. 235 PRINT"[155] * REMOVE ALL CARTRIDGES & FASTLOADERS"
  40. 240 PRINT" * TURN OFF COMPUTER AND TRY AGAIN"
  41. 245 PRINT" * BOOT PROGRAM MAY HAVE BEEN ALTERED"
  42. 250 PRINT" * COMPUTER MAY HAVE BAD RAM CHIPS":NEW
  43. 300 OPEN15,8,15,"S:BOOT SFCS":CLOSE15
  44. 310 SAVE"BOOT SFCS",8
  45. 320 VERIFY"BOOT SFCS",8
  46.